VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bUsuario"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mvarnId As Integer
Private mvarbUsuario As busuario
Private mvardfecha As Date
Private mvarsMensaje As String
Private mvarsModulo As String
Private mvarsOpcion As String
Public Function create(busuario As busuario, mensaje As String) As bLog
Dim bLog As New bLog
Set bLog.busuario = busuario
bLog.sMensaje = mensaje
Set create = bLog
End Function
Friend Property Let sMensaje(ByVal vData As String)
    mvarsMensaje = vData
End Property
Friend Property Get sMensaje() As String
    sMensaje = mvarsMensaje
End Property
Friend Property Let sModulo(ByVal vData As String)
    mvarsModulo = vData
End Property
Friend Property Get sModulo() As String
    sModulo = mvarsModulo
End Property
Friend Property Let sOpcion(ByVal vData As String)
    mvarsOpcion = vData
End Property
Friend Property Get sOpcion() As String
    sOpcion = mvarsOpcion
End Property
Friend Property Let dfecha(ByVal vData As Date)
    mvardfecha = vData
End Property
Friend Property Get dfecha() As Date
    dfecha = mvardfecha
End Property
Friend Property Set busuario(ByVal vData As busuario)
    Set mvarbUsuario = vData
End Property
Friend Property Get busuario() As busuario
    Set busuario = mvarbUsuario
End Property
Friend Property Let nCodigo(ByVal vData As Integer)
    mvarnId = vData
End Property
Friend Property Get nCodigo() As Integer
    nCodigo = mvarnId
End Property
Private Sub Class_Initialize()
Set busuario = New busuario
End Sub
